Aminet 1

home *** CD-ROM | disk | FTP | other *** search

/ Aminet 1 / Aminet - June 1993 [Walnut Creek].iso / usenet / sources / volume91 / graphics / gifmachn / part01 next >

Wrap

Internet Message Format | 1991-02-18 | 69.8 KB

Path: news.larc.nasa.gov!amiga-request From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator) Subject: v91i014: GIFMachine 2.116 - convert GIF images into IFF SHAMs, Part01/02 Reply-To: caw@miroc.chi.il.us (Christopher A. Wichura) Newsgroups: comp.sources.amiga Message-ID: <comp.sources.amiga:v91i014@ab20.larc.nasa.gov> Date: 18 Feb 91 21:19:03 GMT Approved: tadguy@uunet.UU.NET (Tad Guy) X-Mail-Submissions-To: amiga@uunet.uu.net X-Post-Discussions-To: comp.sys.amiga.misc Submitted-by: caw@miroc.chi.il.us (Christopher A. Wichura) Posting-number: Volume 91, Issue 014 Archive-name: graphics/gifmachine2116/part01 [ uuencoded executable, help_txt, and two .o files included ...tad ] This is an update to v2.104 (available on fish #404 (405?) and recently distributed via comp.{binaries/sources}.amiga). It fixes a couple things in the iff writer that have recently been reported to me. The ReadMeFirst file explains these changes. -=> CAW #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh <file", e.g.. If this archive is complete, you # will see the following message at the end: # "End of archive 1 (of 2)." # Contents: GIFMachine.docs ReadMeFirst Sources Sources/24to12.c # Sources/GIFMachine.h Sources/arg_help.o.uu Sources/arg_help.uu # Sources/doflip.c Sources/doimage.c Sources/extensions.c # Sources/giftosham.c Sources/largearrays.c Sources/lmkfile # Sources/mymem.c Sources/myprintf.c Sources/rgbdiff.c # Sources/startup.a Sources/stripborder.c Sources/version.o.uu # Sources/warncli.c Sources/writeiff.c Sources/xcomp.c # Wrapped by tadguy@ab20 on Mon Feb 18 16:18:59 1991 PATH=/bin:/usr/bin:/usr/ucb ; export PATH if test -f 'GIFMachine.docs' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'GIFMachine.docs'\" else echo shar: Extracting \"'GIFMachine.docs'\" $8774 characters$ sed "s/^X//" >'GIFMachine.docs' <<'END_OF_FILE' X X GIFMachine X X Copyright 1990 by Christopher A. Wichura X (caw@miroc.chi.il.us) X X XLegal mumbo jumbo: X XGIFMachine is not in the public domain. All source files, along with the Xresulting executable, are copyright by C. Wichura. You may not sell XGIFMachine. The only allowed charge that may be placed on GIFMachine is Xfor media and/or mailing costs. X XGIFMachine may be freely redistributed via BBSs, InterNet/Usenet, and disk Xlibraries such as Fred Fish's, as long as the archive is not modified. XDisk magazines and services that charge extra for file transfers may not Xdistribute GIFMachine. X XIn using GIFMachine, you accept the responsibility for any damage or loss of Xproductivity/money that may occur through or during its use. C. Wichura is Xnot and can not be held accountable. X X What is GIFMachine? X ~~~~~~~~~~~~~~~~~~~ XGIFMachine is a program that converts pictures stored in the CompuServe GIF X(Graphics Interchange Format) format into IFF SHAM format. There are very Xfew programs that do this, and most have many problems (not that GIFMachine Xdoesn't either -- see below). X XFor a long time, I used a program called ShamSharp to convert GIFs to IFF Xformat. ShamSharp was the only thing I would even consider using (execpt Xfor ASDG's The Art Department, a very fine commercial product!). However, Xthere were a number of things about it that irked me. X X 1) If a picture had >16 colours and a width >320, ShamSharp would X __ALWAYS__ halve the width of the image. Not only that, but it X did so by simply skipping every other pixel of the original GIF. X This resulted in a tremendous loss in resolution. X X I, myself, would rather have the entire picture converted and be X able to use my favorite viewer (Mostra, by S. Vigna) to scroll X around the image. Thus, by default, GIFMachine will not halve X the picture's width. There is a command line switch to make it X do so, however, in which case it actually thinks about it a bit X rather than just dropping the odd pixels. X X 2) If an image had more than 400 lines in it, ShamSharp would X GURU the system if the SHAM mode flag was used. GIFMachine handles X large pictures well (that was one of the primary concerns I had X while writing it) and has been tested with images as large as X 1152x890! X X 3) ShamSharp would write bad IFF files for me on a regular basis. I X suspect this is because of some subtle bug in the cmpByteRun1 X compression routine ShamSharp uses. Anyway, GIFMachine has yet to X write a bad IFF on me. (Cross Fingers, Cross Fingers :-) X XGIFMachine also offers the user the ability to automatically remove a Xborder area in a picture, among its other toys. (I just hate it when you Xhave an image floating in the middle of the screen with inches of nothing Xaround it.) X X Drawbacks of GIFMachine X ~~~~~~~~~~~~~~~~~~~~~~~ XIf you are looking for speed, go someplace else. GIFMachine was written Xwith the idea of getting the best possible image from a GIF file, not as Xsomething to view GIFs in a quick and dirty manner. Usually what I do is Xuse something like HAMGIF to see if the GIF is actually worth the effort Xand then convert a series of GIFs in one shot by specifying multiple Xfilepspecs. On a stock 500, the average picture takes around 25 minutes to Xconvert (half that if the image is interlaced, which is often the case when Xthe width is halved). X XGIFMachine knows how to write only one thing: SHAMs. If a picture only Xuses <= 16 colours, SHAM is not needed. It would be much faster to write a Xnormal IFF and skip the SHAM conversion calculations. In such a case, it Xwould be better to go back and use something like ShamSharp. (Note that Xthis has changed with GIFMachine v2: You can now write 24bit deep ILBMs as Xwell.) X XThe only viewer I know of that properly handles SHAMs with >400 lines is XMostra. SuperSham 3.2 (?) will display the image, but does not allow Xscrolling around. The latest version of Christian Weber's ShowIFF X(included in the v18.? distribution of his iff.library) will also display XSHAMs and let one scroll around. However, he does not rebuild the copper Xlist during vertical scrolling and thus the image turns to muck if one Xscrolls down. X X Using GIFMachine X ~~~~~~~~~~~~~~~~ XGIFMachine requires that you have KickStart 2.0 or greater (hey, I have a X3000 and SAS C with 2.0 includes so I dumped ARP in favor of 2.0). It also Xrequires a fair amount of RAM (though it does not have to be CHIP RAM or Xcontiguous). Alas, memory requirements have gone up with v2; the primary Ximage now requires three bytes to store a pixel instead of two. A 640x480 XGIF now requires about a meg of free memory to convert. X XGIFMachine uses the 2.0 ReadArgs() argument parser. Thus, one can always Xenter `GIFMachine ?' on the command line for help. GIFMachine can not be Xrun from the WorkBench. X XGIFMachine accepts the following arguments: X X<filespec1> ... <filespecN> [TO <directory or filespec>] [ALL] X [NOBORDER <line thresh>] [XCOMP] [DITHER] X [XFLIP] [YFLIP] [DEEP] [BUFSIZE <Size in KBytes>] X XEach filespec may contain any valid 2.0 wildcards (really regular Xexpressions). X XThe TO option allows one to specify where to put the IFFs. If not given, Xthey will be placed in the current directory. It is generally advised that XTO point at a directory. However, if you are converting only a single GIF Xfile then there is no reason one can not specify a full filespec. X XThe ALL option will cause GIFMachine to recursively descend into any Xdirectories while matching filespecs. X XThe NOBORDER option instructs GIFMachine to remove the border area from an Ximage. It takes, as its <line thresh> parameter, an integer between 0 and X100 that indicates what percentage of a line can differ from the border Xcolour and still have the line removed. This option has been slightly Xmodified in the v2 release: Before, GIFMachine assumed that the value at Xcoordinate 0,0 was the colour of the entire border area. This is not Xalways the case, however. Take, for example, a GIF with the image right up Xin the upper left corner with a large empty region to the right and below Xof it. Such an image would have almost none of the offending border Xremoved. GIFMachine will now attempt to run the stripper four times, using Xeach of the four corners' colour for the border check. For the most part, Xthis does not slow this function down because a border check is aborted as Xsoon as the <line thresh> is exceeded and GIFMachine moves to the next Xcorner. X XThe next option, XCOMP, tells GIFMachine to halve the width of images. X XWhen the DITHER option is specified, a boustrophedonic Floyd-Steinberg Xerror diffusion algorythm will be used when reducing the colour palette to X12 bits. This can help eliminate colour banding that occurs in places Xwhere subtle shadows occur. X XThe XFLIP and YFLIP options will flip the image horizontally and Xvertically, respectively. X XThe DEEP option will cause GIFMachine to write a 24bit deep ILBM instead of Xa SHAM file. The DITHER option will be ignored in this mode, however. XWriting deep ILBMs if much faster than writing SHAMs because no Xcomputations need to be made. Please note that files written with this Xoption in effect can be quite large. Expect a 640x480 XCOMPed image to be Xover 400k in length, for example. X XThe final option, BUFSIZE, allows one to change the read buffer size used Xwhen decompressing GIFs. It defaults to two Kbytes. The argument is Xspecified in number of Kbytes, not bytes. Thus, if you have memory to burn Xand want a large buffer you could specify a BUFSIZE 100 and you would get a Xbuffer 100k in size. This command does not effect the writing of the IFF Xfile, however. X XNote that if GIFMachine determines that the image can be written interlaced X(depends on aspect ratios) then it will work on two lines at a time instead Xof one. This is because the SHAM format only changes the base colours Xevery other line when displaying interlaced images. X XGIFMachine and GIF89a compatibility: GIFMachine should be able to read any XGIF file written under the GIF89a specs. GIFMachine does not, however, Xperform aspect corrections or process Plain Text Extensions (for obvious Xreasons), Graphic Control Extensions, or Application Extensions. XGIFMachine will, however, detect the new Comment Extension blocks. The Xmessages contained in such blocks will be stored and output as ANNO chunks Xwhen the IFF file is being written. X X-=> CAW END_OF_FILE if test 8774 -ne `wc -c <'GIFMachine.docs'`; then echo shar: \"'GIFMachine.docs'\" unpacked with wrong size! fi # end of 'GIFMachine.docs' fi if test -f 'ReadMeFirst' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'ReadMeFirst'\" else echo shar: Extracting \"'ReadMeFirst'\" $1221 characters$ sed "s/^X//" >'ReadMeFirst' <<'END_OF_FILE' XThis is version 2.104, an update to version 2.96. It fixes a bug in the XStripBorder() routine which could cause the system to crash (it actually Xappears to be more a bug in SAS 5.10's conditional code creation). X XI also reduced the amount of static memory declared by 1k. Also moved some Xof the declarations in giftosham.c to largearrays.c to avoid the `too much Xglobal data' warning. X X--------------------------------------------------------------------------- X2/24/91: Version 2.116 X XThis fixes a couple problems with the iff writer: X X 1) If the image had an odd width and was not XCOMPed or X NOBORDERed, a corrupted iff file would be written. X X 2) If the image was greater vertically than the size of one's X screen (i.e., required scrolling down), was of odd height, X and was interlaced, Mostra v1.02 would glitch when one X scrolled all the way down to the bottom of the image. X This has been fixed by writing an extra blank scan line X to images of odd height. X X XI also moved the help text into a seperate file which is then BLinked in. XMakes it easier to edit, and doesn't cause the compiler to throw ten Xthousand coniption fits (i.e., crash) when it gets to be more than 512 Xchars long. END_OF_FILE if test 1221 -ne `wc -c <'ReadMeFirst'`; then echo shar: \"'ReadMeFirst'\" unpacked with wrong size! fi # end of 'ReadMeFirst' fi if test ! -d 'Sources' ; then echo shar: Creating directory \"'Sources'\" mkdir 'Sources' fi if test -f 'Sources/24to12.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/24to12.c'\" else echo shar: Extracting \"'Sources/24to12.c'\" $4024 characters$ sed "s/^X//" >'Sources/24to12.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X X/* since both MasterColourTable and the PaletteBuf are the same size and X type we will define MCT to be the PaletteBuf to cut down on static X memory declarations */ X#define MasterColourTable PaletteBuf X Xextern UBYTE MasterColourTable[MAXCOLOURS]; Xstatic UWORD TotalColours; X Xextern BYTE *CurrentLineErr[3]; Xextern BYTE *LastLineErr[3]; X Xextern char *AbortMsg; X X#define MAXERR 2 X Xvoid ReduceTo12(void) X{ X register UWORD x; X register UWORD y; X X PutStr("...Reducing palette to 12 bits.\n......Line "); X X TotalColours = 0; X memset((char *)MasterColourTable, 0, sizeof(MasterColourTable)); X X for (y = 0; y < gdesc.gd_Height; y++) { X MyPrintf("%5ld", y); X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X for (x = 0; x < gdesc.gd_Width; x++) X PutValue(x, y, AddColour(&BitPlane[y][x])); X X PutStr("\x9B" "5D"); X } X X MyPrintf("\x9B" "5D%ld total unique colours used.\n", TotalColours); X} X Xvoid DitherTo12(void) X{ X register UWORD x; X register UWORD y; X register int RedErr; X register int GreenErr; X register int BlueErr; X BYTE **cerr, **lerr, **terr; X struct RGB rgb; X X PutStr("...Dithering palette to 12 bits.\n......Setup"); X X TotalColours = 0; X memset((char *)MasterColourTable, 0, sizeof(MasterColourTable)); X X cerr = (BYTE **)&CurrentLineErr[0]; X lerr = (BYTE **)&LastLineErr[0]; X X /* the top, left and right borders will be used unmodified */ X X for (x = 0; x < gdesc.gd_Width; x++) X PutValue(x, 0, AddColour(&BitPlane[0][x])); X X for (y = 1; y < gdesc.gd_Height; y++) { X PutValue(0, y, AddColour(&BitPlane[y][0])); X PutValue(gdesc.gd_Width - 1, y, AddColour(&BitPlane[y][gdesc.gd_Width - 1])); X } X X /* since the error tables are alloced with MEMF_CLEAR we won't bother X to clear them here. instead, we just hit the main loop */ X X PutStr("\x9B" "5DLine "); X X for (y = 1; y < gdesc.gd_Height; y++) { X MyPrintf("%5ld", y); X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X for (x = 1; x < (gdesc.gd_Width - 1); x++) { X rgb = BitPlane[y][x]; X X RedErr = cerr[0][x - 1] + 7*lerr[0][x - 1] + 5*lerr[0][x] + 3*lerr[0][x + 1]; X GreenErr = cerr[1][x - 1] + 7*lerr[1][x - 1] + 5*lerr[1][x] + 3*lerr[1][x + 1]; X BlueErr = cerr[2][x - 1] + 7*lerr[2][x - 1] + 5*lerr[2][x] + 3*lerr[2][x + 1]; X X RedErr >>= 4; X GreenErr >>= 4; X BlueErr >>= 4; X X /* now we add the errors into the colour we want. if this would push X us over 255 (and thus out of range) we subtract the error out so X that we still see some dithering instead of washing out the area. */ X X if (rgb.rgb_Red + RedErr > 255) X rgb.rgb_Red -= RedErr; X else X rgb.rgb_Red += RedErr; X X if (rgb.rgb_Green + GreenErr > 255) X rgb.rgb_Green -= GreenErr; X else X rgb.rgb_Green += GreenErr; X X if (rgb.rgb_Blue + BlueErr > 255) X rgb.rgb_Blue -= BlueErr; X else X rgb.rgb_Blue += BlueErr; X X PutValue(x, y, AddColour(&rgb)); X X RedErr = (int)rgb.rgb_Red - (int)(rgb.rgb_Red & 0xF0); X GreenErr = (int)rgb.rgb_Green - (int)(rgb.rgb_Green & 0xF0); X BlueErr = (int)rgb.rgb_Blue - (int)(rgb.rgb_Blue & 0xF0); X X if (RedErr > MAXERR) X RedErr = (RedErr * 3) >> 2; X X if (GreenErr > MAXERR) X GreenErr = (GreenErr * 3) >> 2; X X if (BlueErr > MAXERR) X BlueErr = (BlueErr * 3) >> 2; X X cerr[0][x] = RedErr; X cerr[1][x] = GreenErr; X cerr[2][x] = BlueErr; X } X X terr = lerr; X lerr = cerr; X cerr = terr; X X PutStr("\x9B" "5D"); X } X X MyPrintf("\x9B" "5D%ld total unique colours used.\n", TotalColours); X} X XUWORD AddColour(struct RGB *rgb) X{ X register UWORD colour; X X colour = ((rgb->rgb_Red << 4) & 0xF00) | X (rgb->rgb_Green & 0xF0) | X (rgb->rgb_Blue >> 4); X X if (!MasterColourTable[colour]) { X MasterColourTable[colour] = 1; X TotalColours++; X } X X return colour; X} END_OF_FILE if test 4024 -ne `wc -c <'Sources/24to12.c'`; then echo shar: \"'Sources/24to12.c'\" unpacked with wrong size! fi # end of 'Sources/24to12.c' fi if test -f 'Sources/GIFMachine.h' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/GIFMachine.h'\" else echo shar: Extracting \"'Sources/GIFMachine.h'\" $2943 characters$ sed "s/^X//" >'Sources/GIFMachine.h' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include <exec/types.h> X#include <exec/lists.h> X#include <exec/nodes.h> X#include <proto/dos.h> X#include <proto/exec.h> X#include <string.h> X#include <stdlib.h> X X/* we only use this for testing purposes */ Xvoid kprintf(UBYTE *, ...); X X/* some structures to make parsing the gif files a bit easier */ Xstruct GIFdescriptor { X UWORD gd_Width; X UWORD gd_Height; X UBYTE gd_ColInfo; X UBYTE gd_BackGround; X UBYTE gd_PixelAspect; /* Aspect Ratio = (Pixel Aspect + 15) / 64 */ X}; X Xstruct ImageDesc { X UWORD id_Left; X UWORD id_Top; X UWORD id_Width; X UWORD id_Height; X UBYTE id_Info; X}; X Xstruct RGB { X UBYTE rgb_Red; X UBYTE rgb_Green; X UBYTE rgb_Blue; X}; X X#define GIF_IMAGE 0x2C X#define GIF_EXTENSION 0x21 X#define GIF_TERMINATOR 0x3B X X#define GIF_COMMENT_EXT 0xFE X X#define MAXCOLOURS 4096 X X/* these next macros are used to get the r, g, and b values of a given X index */ X#define GetRed(a) (UBYTE)(a >> 8) X#define GetGreen(a) (UBYTE)((a >> 4) & 0xF) X#define GetBlue(a) (UBYTE)(a & 0xF) X X/* whenever we want to abort we will return this as our error code */ X#define ABORTEXITVAL 1 X X/* this struct is used to hold the linked list of comments found in the GIF X file so that each can be written as a seperate ANNO chunk. */ Xstruct CommentNode { X struct MinNode cn_Node; X char *cn_Comment; X ULONG cn_CommentLength; X}; X X/* function prototypes we use */ Xextern int __regargs main(char *cmdptr, int cmdlen, struct WBStartup *WBMsg); Xextern void WarnMustUseCLI(void); Xextern void DoPattern(char *); Xextern void Convert(char *); Xextern BOOL IsDir(char *); Xextern void FlipWord(UWORD *); Xextern BOOL DoImage(BPTR); Xextern BOOL DoExtension(BPTR); Xextern BOOL WriteIFF(char *, BOOL); Xextern void PutValue(UWORD, UWORD, UWORD); Xextern UWORD GetValue(UWORD, UWORD); Xextern int ReadCode(BPTR); Xextern void AddPixel(UBYTE); Xextern void StripBorder(void); Xextern BOOL BorderCheck(UWORD, UWORD); Xextern void DoXComp(void); Xextern void GIFtoSHAM(void); Xextern void InitDiff(void); Xextern ULONG RGBdiff(UBYTE, UBYTE, UBYTE, UBYTE, UBYTE, UBYTE); Xextern void OutDump(int); Xextern void OutRun(int, int); Xextern void InitMemory(void); Xextern char * MyAlloc(ULONG); Xextern void MyFree(char *); Xextern void FreeAll(UWORD); Xextern void MyExit(ULONG); Xextern void DoXFlip(void); Xextern void DoYFlip(void); Xextern void ReduceTo12(void); Xextern void DitherTo12(void); Xextern UWORD AddColour(struct RGB *); Xextern void __stdargs MyPrintf(char *, ...); Xextern void __stdargs MySPrintf(char *, char *, ...); X X/* modules that want to use the Get/PutValue macros should include this X next macro to externally reference the picture storage array */ X#define EXTERNBITPLANE extern struct RGB **BitPlane X X/* for use once colour palette has been reduced to 12 bits */ X#define GetValue(a, b) *((UWORD *)&BitPlane[b][a]) X#define PutValue(a, b, c) *((UWORD *)&BitPlane[b][a]) = c END_OF_FILE if test 2943 -ne `wc -c <'Sources/GIFMachine.h'`; then echo shar: \"'Sources/GIFMachine.h'\" unpacked with wrong size! fi # end of 'Sources/GIFMachine.h' fi if test -f 'Sources/arg_help.o.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/arg_help.o.uu'\" else echo shar: Extracting \"'Sources/arg_help.o.uu'\" $706 characters$ sed "s/^X//" >'Sources/arg_help.o.uu' <<'END_OF_FILE' Xbegin 666 arg_help.o XM```#YP````-A<F=?:&5L<"YO``````/H`````71E>'0```/I````925S('8EA XM<PI#;W!Y<FEG:'0@J2`Q.3DP(&)Y()LT.S,S.S0R;4-H<FES=&]P:&5R($$NE XM(%=I8VAU<F&;,#LS,SLT,&T@*)LS,FUC87>;,S-M0)LS,FUM:7)O8RYC:&DN@ XM:6PN=7.;,S-M*0H*57-A9V4Z("`@("`E<R`\FS,Q;4=)1F9I;&5S*',IFS,RR XM;3X@6YLS,VU43R";,S%M1&ER96-T;W)Y('P@1FEL99LS,FU=(%N;,S-M04Q,` XMFS,R;5T*("`@("`@("`@("`@("`@("`@("`@(%N;,S-M3D]"3U)$15(@FS,R8 XM;3R;,S%M3&EN92!4:')E<VB;,S)M/ET@6YLS,VU80T]-4)LS,FU=(%N;,S-M6 XM1$E42$52FS,R;5T*("`@("`@("`@("`@("`@("`@("`@(%N;,S-M6$9,25";[ XM,S)M72!;FS,S;5E&3$E0FS,R;5T@6YLS,VU$1450FS,R;5T@6YLS,VU"54930 XM25I%()LS,FT\FS,Q;5-I>F4@:6X@2T)Y=&5SFS,R;3Y="ILS,6T````#[P$`2 X:``-?87)G7VAE;'```````````````````_)S, X`` Xend Xsize 476 END_OF_FILE if test 706 -ne `wc -c <'Sources/arg_help.o.uu'`; then echo shar: \"'Sources/arg_help.o.uu'\" unpacked with wrong size! fi # end of 'Sources/arg_help.o.uu' fi if test -f 'Sources/arg_help.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/arg_help.uu'\" else echo shar: Extracting \"'Sources/arg_help.uu'\" $606 characters$ sed "s/^X//" >'Sources/arg_help.uu' <<'END_OF_FILE' Xbegin 666 arg_help.txt XM)7,@=B5S"D-O<'ER:6=H=""I(#$Y.3`@8GD@FS0[,S,[-#)M0VAR:7-T;W!H2 XM97(@02X@5VEC:'5R89LP.S,S.S0P;2`HFS,R;6-A=YLS,VU`FS,R;6UI<F]CV XM+F-H:2YI;"YU<YLS,VTI"@I5<V%G93H@("`@("5S(#R;,S%M1TE&9FEL97,HF XM<RF;,S)M/B!;FS,S;51/()LS,6U$:7)E8W1O<GD@?"!&:6QEFS,R;5T@6YLSC XM,VU!3$R;,S)M70H@("`@("`@("`@("`@("`@("`@("`@6YLS,VU.3T)/4D1%? XM4B";,S)M/)LS,6U,:6YE(%1H<F5S:)LS,FT^72!;FS,S;5A#3TU0FS,R;5T@_ XM6YLS,VU$251(15*;,S)M70H@("`@("`@("`@("`@("`@("`@("`@6YLS,VU8^ XM1DQ)4)LS,FU=(%N;,S-M649,25";,S)M72!;FS,S;41%15";,S)M72!;FS,SY XK;4)51E-)6D4@FS,R;3R;,S%M4VEZ92!I;B!+0GET97.;,S)M/ET*FS,Q;3,SB X`` Xend Xsize 403 END_OF_FILE if test 606 -ne `wc -c <'Sources/arg_help.uu'`; then echo shar: \"'Sources/arg_help.uu'\" unpacked with wrong size! fi # end of 'Sources/arg_help.uu' fi if test -f 'Sources/doflip.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/doflip.c'\" else echo shar: Extracting \"'Sources/doflip.c'\" $1470 characters$ sed "s/^X//" >'Sources/doflip.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X Xextern char *AbortMsg; X Xvoid DoXFlip(void) X{ X register UWORD x1; X register UWORD x2; X register UWORD y; X struct RGB TempColourStore; X X MyPrintf("...Flipping image %s.\n......%s ", "horizontally", "Line"); X X for (y = 0; y < gdesc.gd_Height; y++) { X MyPrintf("%5ld", y); X X for (x1 = 0, x2 = gdesc.gd_Width - 1; x1 < x2; x1++, x2--) { X TempColourStore = BitPlane[y][x1]; X BitPlane[y][x1] = BitPlane[y][x2]; X BitPlane[y][x2] = TempColourStore; X } X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X PutStr("\x9B" "5D"); X } X X MyPrintf("\x9B" "%sDFlipped. \n", "5"); X} X Xvoid DoYFlip(void) X{ X register UWORD y1; X register UWORD y2; X register UWORD x; X struct RGB TempColourStore; X X MyPrintf("...Flipping image %s.\n......%s ", "vertically", "Column"); X X for (x = 0; x < gdesc.gd_Width; x++) { X MyPrintf("%5ld", x); X X for (y1 = 0, y2 = gdesc.gd_Height - 1; y1 < y2; y1++, y2--) { X TempColourStore = BitPlane[y1][x]; X BitPlane[y1][x] = BitPlane[y2][x]; X BitPlane[y2][x] = TempColourStore; X } X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X PutStr("\x9B" "5D"); X } X X MyPrintf("\x9B" "%sDFlipped. \n", "7"); X} END_OF_FILE if test 1470 -ne `wc -c <'Sources/doflip.c'`; then echo shar: \"'Sources/doflip.c'\" unpacked with wrong size! fi # end of 'Sources/doflip.c' fi if test -f 'Sources/doimage.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/doimage.c'\" else echo shar: Extracting \"'Sources/doimage.c'\" $5352 characters$ sed "s/^X//" >'Sources/doimage.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X Xstatic struct ImageDesc idesc; Xextern struct RGB GlobalColourTable[256]; Xstatic struct RGB LocalColourTable[256]; Xextern ULONG ImageNumber; X Xextern char *AbortMsg; X Xstatic UWORD Xpos, Ypos; Xstatic BOOL interleave; X Xstatic UBYTE LeaveStep[5] = {1, 8, 8, 4, 2}; Xstatic UBYTE LeaveFirst[5] = {0, 0, 4, 2, 1}; X X/* some variables used by the decompressor */ Xstatic int ReadError; Xstatic UBYTE CodeSize; Xstatic int EOFCode; Xstatic UBYTE ReadMask; Xstatic int CompDataPointer; Xstatic int CompDataCount; Xstatic UBYTE CompData[256]; X X/* tables used by the decompressor */ Xstatic UWORD Prefix[4096]; Xstatic UBYTE Suffix[4096]; Xstatic UBYTE OutCode[1025]; X XBOOL DoImage(BPTR fh) X{ X register int index; X register int colours; X int Code; X X MyPrintf("...Image #%ld encountered.\n", ImageNumber++); X X if (FRead(fh, (char *)&idesc, 1, 9) != 9) { X PutStr("......Error reading image descriptor.\n"); X return TRUE; X } X X FlipWord(&idesc.id_Left); X FlipWord(&idesc.id_Top); X FlipWord(&idesc.id_Width); X FlipWord(&idesc.id_Height); X X interleave = idesc.id_Info & 1L << 6; X if (interleave) X interleave = 1; X X MyPrintf("......Xpos from %ld to %ld, Ypos from %ld to %ld, %sinterlaced.\n", X idesc.id_Left, idesc.id_Left + idesc.id_Width - 1, X idesc.id_Top, idesc.id_Top + idesc.id_Height - 1, X interleave ? "" : "not "); X X if (idesc.id_Info & 1L << 7) { X colours = 1L << ((idesc.id_Info & 7) + 1); X MyPrintf("......Local colour map contains %ld entries.\n", colours); X X for (index = 0; index < colours; index++) { X if (FRead(fh, &LocalColourTable[index], 1, 3) != 3) { X MyPrintf("......Error reading local colour #%ld.\n", X index); X return TRUE; X } X } X } else { X colours = 1L << ((gdesc.gd_ColInfo & 7) + 1); X CopyMem((char *)GlobalColourTable, (char *)LocalColourTable, X sizeof(LocalColourTable)); X } X X Xpos = Ypos = 0; X X /* now we are ready to read the image in so do it! */ X X { X int MaxCode, ClearCode, CurCode, X OldCode, InCode, FreeCode; X int OutCount; X int FirstFree; X UBYTE InitCodeSize, FinChar, BitMask; X X MyPrintf("......Decompressing line number %5ld", Ypos); X X /* get the codesize and do general setup for decompression */ X if ((CodeSize = FGetC(fh)) == -1) { X PutStr("\n......I/O Error during decompression.\n"); X return TRUE; X } X X ClearCode = 1L << CodeSize; X EOFCode = ClearCode + 1; X FreeCode = FirstFree = ClearCode + 2; X X CodeSize++; /* per GIF spec */ X InitCodeSize = CodeSize; X MaxCode = 1L << CodeSize; X ReadError = ReadMask = OutCount = 0; X CompDataPointer = CompDataCount = 0; X X BitMask = colours - 1; X X Code = ReadCode(fh); X while (Code != EOFCode) { X if (ReadError) X return TRUE; X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X if (Code == ClearCode) { X CodeSize = InitCodeSize; X MaxCode = 1L << CodeSize; X FreeCode = FirstFree; X FinChar = CurCode = OldCode = Code = ReadCode(fh); X AddPixel(FinChar); X } else { X CurCode = InCode = Code; X X if (CurCode >= FreeCode) { X CurCode = OldCode; X OutCode[OutCount++] = FinChar; X } X X while (CurCode > BitMask) { X if (OutCount > 1024) { X PutStr("\n......Corrupt GIF file (OutCount)\n"); X return TRUE; X } X X OutCode[OutCount++] = Suffix[CurCode]; X CurCode = Prefix[CurCode]; X } X X FinChar = CurCode; X AddPixel(FinChar); X X for (index = OutCount - 1; index >= 0; index--) X AddPixel(OutCode[index]); X OutCount = 0; X X Prefix[FreeCode] = OldCode; X Suffix[FreeCode] = FinChar; X OldCode = InCode; X X if (++FreeCode >= MaxCode) { X if (CodeSize < 12) { X CodeSize++; X MaxCode <<= 1; X } X } X } X X Code = ReadCode(fh); X } X } X X if ((Code = FGetC(fh)) == -1) X return TRUE; X X /* done decompressing. Erase decompressing message and exit */ X PutStr("\x9B" "22D\x9BKed.\n"); X X if (Code != 0) { X PutStr("......Warning: Unaligned packet.\n"); X UnGetC(fh, Code); X } X X return FALSE; X} X Xstatic UBYTE ByteBuf; X Xint ReadCode(BPTR fh) X{ X register int temp; X register int DstMasked; X register int DstMask; X register LONG size; X X temp = 0; X DstMasked = 1L << CodeSize; X for (DstMask = 1; DstMask != DstMasked; DstMask <<= 1) { X if (!ReadMask) { X if (CompDataPointer == CompDataCount) { X if ((size = FGetC(fh)) == -1) { X PutStr("\n......I/O Error during decompression.\n"); X ReadError = 1; X return EOFCode; X } X X if (FRead(fh, (char *)CompData, 1, size) != size) { X PutStr("\n......I/O Error during decompression.\n"); X ReadError = 1; X return EOFCode; X } X X CompDataCount = size; X CompDataPointer = 0; X } X X ReadMask = 1; X ByteBuf = CompData[CompDataPointer++]; X } X X if (ByteBuf & ReadMask) X temp |= DstMask; X X ReadMask <<= 1; X } X X return temp; X} X Xvoid AddPixel(UBYTE index) X{ X register UWORD XStore; X register UWORD YStore; X X XStore = Xpos + idesc.id_Left; X YStore = Ypos + idesc.id_Top; X X BitPlane[YStore][XStore] = LocalColourTable[index]; X X if (++Xpos == idesc.id_Width) { X Xpos = 0; X Ypos += LeaveStep[interleave]; X if (Ypos >= idesc.id_Height) X Ypos = LeaveFirst[++interleave]; X X MyPrintf("\x9B" "5D%5ld", Ypos + idesc.id_Top); X } X} END_OF_FILE if test 5352 -ne `wc -c <'Sources/doimage.c'`; then echo shar: \"'Sources/doimage.c'\" unpacked with wrong size! fi # end of 'Sources/doimage.c' fi if test -f 'Sources/extensions.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/extensions.c'\" else echo shar: Extracting \"'Sources/extensions.c'\" $2266 characters$ sed "s/^X//" >'Sources/extensions.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X Xstruct MinList CommentList; Xstatic UBYTE buf[256]; X XBOOL DoExtension(BPTR fh) X{ X register LONG size; X register LONG cmdcode; X register char *Comment; X register char *OldComment; X register int CommentLength; X register int OldCommentLength; X register struct CommentNode *cn; X X if ((cmdcode = FGetC(fh)) == -1) { X PutStr("...I/O error reading extension block function code\n"); X return TRUE; X } X X switch(cmdcode) { X case GIF_COMMENT_EXT: X PutStr("...Comment extension encountered. Contents will be stored in an ANNO chunk.\n"); X X if (!(cn = (struct CommentNode *)MyAlloc(sizeof(struct CommentNode)))) { X PutStr("......Out of memory allocating comment block.\n"); X return TRUE; X } X X Comment = NULL; X CommentLength = 0; X X for (;;) { X if ((size = FGetC(fh)) == -1) { X PutStr("......I/O Error reading comment block.\n"); X return TRUE; X } X X if (size) { X if (FRead(fh, buf, 1, size) != size) { X PutStr("......I/O Error reading comment block.\n"); X return TRUE; X } X X OldComment = Comment; X OldCommentLength = CommentLength; X CommentLength += size; X X if (!(Comment = MyAlloc(CommentLength))) { X PutStr("......Out of memory allocating comment block.\n"); X return TRUE; X } X X if (OldCommentLength) { X CopyMem(OldComment, Comment, OldCommentLength); X MyFree(OldComment); X } X X CopyMem(buf, &Comment[OldCommentLength], size); X } else { /* end of comment so store it */ X cn->cn_Comment = Comment; X cn->cn_CommentLength = CommentLength; X AddTail((struct List *)&CommentList, (struct Node *)cn); X return FALSE; X } X } X break; X X default: X MyPrintf("...Extension block function code #%ld not know, skipping.\n", X cmdcode); X X /* we must skip over any data for the extension block */ X for (;;) { X if ((size = FGetC(fh)) == -1) { X PutStr("...I/O Error skipping unknown extension block.\n"); X return TRUE; X } X X if (size == 0) X return FALSE; X X if (FRead(fh, buf, 1, size) != size) { X PutStr("...I/O Error skipping unknown extension block.\n"); X return TRUE; X } X } X break; X } X} END_OF_FILE if test 2266 -ne `wc -c <'Sources/extensions.c'`; then echo shar: \"'Sources/extensions.c'\" unpacked with wrong size! fi # end of 'Sources/extensions.c' fi if test -f 'Sources/giftosham.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/giftosham.c'\" else echo shar: Extracting \"'Sources/giftosham.c'\" $5180 characters$ sed "s/^X//" >'Sources/giftosham.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X Xextern char *AbortMsg; X Xextern BOOL Laced; X XUWORD *SHAMmem; X Xstruct RGB Palette[16]; X Xextern UBYTE PaletteBuf[MAXCOLOURS]; Xextern ULONG ColourBuf[MAXCOLOURS]; Xstatic ULONG ErrBuf[MAXCOLOURS]; X X#define ISLACED (Laced && (y != gdesc.gd_Height - 1)) X Xvoid GIFtoSHAM(void) X{ X register UWORD x; X register UWORD current; X register int index; X register int index2; X ULONG error; X UWORD y; X int Pal; X int ShamIndex; X int colours; X X ULONG TotalErr, LineErr; X X ULONG bestpal; X ULONG besterr; X X UBYTE CurrentRed, CurrentGreen, CurrentBlue; X UBYTE PreviousRed, PreviousGreen, PreviousBlue; X X MyPrintf("...Converting to SHAM format.\n......Line"); X X ShamIndex = TotalErr = 0; X X /* palette zero is always the background colour. regardless of X what the GIF specified for the background, we always use black. X this is a kludge to get around a hardware `feature' that causes X all overscanned screens to have a black background regardless X of what the background was specified to be. X */ X X Palette[0].rgb_Red = Palette[0].rgb_Green = Palette[0].rgb_Blue = 0; X X for (y = 0; y < gdesc.gd_Height; y += (ISLACED ? 2 : 1)) { X if (ISLACED) X MyPrintf("s %5ld-%5ld", y, y + 1); X else X MyPrintf(" %5ld", y); X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X memset((char *)ColourBuf, 0, sizeof(ColourBuf)); X X for (colours = index2 = 0; index2 < (ISLACED ? 2 : 1); index2++) X for (x = 0; x < gdesc.gd_Width; x++) { X current = GetValue(x, y + index2); X X if (ColourBuf[current]++ == 0) X colours++; X } X X MyPrintf(", %4ld unique colours", colours); X X memset((char *)PaletteBuf, 0, sizeof(PaletteBuf)); X X for (index = 0; index < MAXCOLOURS; index++) { X if (ColourBuf[index] == 0) X continue; X X ErrBuf[index] = RGBdiff(GetRed(index), X GetGreen(index), X GetBlue(index), X Palette[0].rgb_Red, X Palette[0].rgb_Green, X Palette[0].rgb_Blue); X } X X for (Pal = 1; Pal < 16; Pal++) { X for (besterr = index = 0; index < MAXCOLOURS; index++) { X if (ColourBuf[index] == 0) X continue; X X if (ErrBuf[index] * ColourBuf[index] >= besterr) { X bestpal = index; X besterr = ErrBuf[index] * ColourBuf[index]; X } X } X X Palette[Pal].rgb_Red = GetRed(bestpal); X Palette[Pal].rgb_Green = GetGreen(bestpal); X Palette[Pal].rgb_Blue = GetBlue(bestpal); X X for (index = 0; index < MAXCOLOURS; index++) { X if (ColourBuf[index] == 0) X continue; X X error = RGBdiff(GetRed(index), X GetGreen(index), X GetBlue(index), X Palette[Pal].rgb_Red, X Palette[Pal].rgb_Green, X Palette[Pal].rgb_Blue); X X if (error < ErrBuf[index]) { X ErrBuf[index] = error; X PaletteBuf[index] = Pal; X } X } X } X X for (index = 0; index < 16; index++) X SHAMmem[ShamIndex++] = (UWORD)( X Palette[index].rgb_Red << 8 | X Palette[index].rgb_Green << 4 | X Palette[index].rgb_Blue); X X for (index2 = 0; index2 < (ISLACED ? 2 : 1); index2++) { X PreviousRed = Palette[0].rgb_Red; X PreviousGreen = Palette[0].rgb_Green; X PreviousBlue = Palette[0].rgb_Blue; X X for (LineErr = x = 0; x < gdesc.gd_Width; x++) { X current = GetValue(x, y + index2); X X CurrentRed = GetRed(current); X CurrentGreen = GetGreen(current); X CurrentBlue = GetBlue(current); X X besterr = ErrBuf[current]; X bestpal = PaletteBuf[current]; X X error = RGBdiff( X CurrentRed, X CurrentGreen, X CurrentBlue, X CurrentRed, X PreviousGreen, X PreviousBlue); X X if (error < besterr) { X besterr = error; X bestpal = 16; X } X X error = RGBdiff( X CurrentRed, X CurrentGreen, X CurrentBlue, X PreviousRed, X CurrentGreen, X PreviousBlue); X X if (error < besterr) { X besterr = error; X bestpal = 17; X } X X error = RGBdiff( X CurrentRed, X CurrentGreen, X CurrentBlue, X PreviousRed, X PreviousGreen, X CurrentBlue); X X if (error < besterr) { X besterr = error; X bestpal = 18; X } X X if (bestpal < 16) { X PutValue(x, y + index2, bestpal); X X PreviousRed = Palette[bestpal].rgb_Red; X PreviousGreen = Palette[bestpal].rgb_Green; X PreviousBlue = Palette[bestpal].rgb_Blue; X } else if (bestpal == 16) { X PutValue(x, y + index2, CurrentRed | 0x20); X X PreviousRed = CurrentRed; X } else if (bestpal == 17) { X PutValue(x, y + index2, CurrentGreen | 0x30); X X PreviousGreen = CurrentGreen; X } else { X PutValue(x, y + index2, CurrentBlue | 0x10); X X PreviousBlue = CurrentBlue; X } X X LineErr += besterr; X } X X TotalErr += LineErr; X } X X MyPrintf("\x9B" "%sD\x9BK", (ISLACED ? "34" : "27")); X } X X { X ULONG ErrPerPixel; X char TextBuf[10]; X X ErrPerPixel = ((TotalErr / gdesc.gd_Height) * 1000) / gdesc.gd_Width; X MySPrintf(TextBuf, "%ld.%03ld", ErrPerPixel / 1000, ErrPerPixel % 1000); X X MyPrintf("\x9B" "4DTotal colour error = %ld, Mean per line = %ld, Per pixel = %s.\n", X TotalErr, TotalErr / gdesc.gd_Height, TextBuf); X } X} END_OF_FILE if test 5180 -ne `wc -c <'Sources/giftosham.c'`; then echo shar: \"'Sources/giftosham.c'\" unpacked with wrong size! fi # end of 'Sources/giftosham.c' fi if test -f 'Sources/largearrays.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/largearrays.c'\" else echo shar: Extracting \"'Sources/largearrays.c'\" $192 characters$ sed "s/^X//" >'Sources/largearrays.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X XUBYTE PaletteBuf[MAXCOLOURS]; XULONG ColourBuf[MAXCOLOURS]; END_OF_FILE if test 192 -ne `wc -c <'Sources/largearrays.c'`; then echo shar: \"'Sources/largearrays.c'\" unpacked with wrong size! fi # end of 'Sources/largearrays.c' fi if test -f 'Sources/lmkfile' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/lmkfile'\" else echo shar: Extracting \"'Sources/lmkfile'\" $1004 characters$ sed "s/^X//" >'Sources/lmkfile' <<'END_OF_FILE' X# lmkfile for GIFMachine X# (c) 1990 by Christopher A. Wichura (caw@miroc.chi.il.us) X XCPU = -m0 XDEBUG = -d2 XCFLAGS = $(DEBUG) $(CPU) -v -cs -rr -fid -O X XND = NODEBUG XLFLAGS = $(ND) SMALLCODE SMALLDATA X XHDR = GIFMachine.h X XOBJS = startup.o main.o mymem.o warncli.o doimage.o extensions.o writeiff.o 24to12.o stripborder.o xcomp.o doflip.o rgbdiff.o giftosham.o myprintf.o largearrays.o arg_help.o XLIBS = LIB:LCR.lib LIB:debug.lib LIB:amiga2.0.lib X X.c.o: X LC $(CFLAGS) $* X X.a.o: X ASM -iINCLUDE: $* X X.txt.o: X TXTtoOBJ $*.txt $*.o _$* CODE X XGIFMachine: $(OBJS) X UpCVersion version.o X BLink <WITH < (GIFMachine.lnk) XFROM $(OBJS) version.o XTO GIFMachine XLIB $(LIBS) X$(LFLAGS) X< X Xmain.o: main.c $(HDR) X Xdoimage.o: doimage.c $(HDR) X Xextensions.o: extensions.c $(HDR) X Xwriteiff.o: writeiff.c $(HDR) X Xstripborder.o: stripborder.c $(HDR) X Xxcomp.o: xcomp.c $(HDR) X Xdoflip.o: doflip.c $(HDR) X Xgiftosham.o: giftosham.c $(HDR) X Xrgbdiff.o: rgbdiff.c $(HDR) X X24to12.o: 24to12.c $(HDR) X Xlargearrays.o: largearrays.c $(HDR) END_OF_FILE if test 1004 -ne `wc -c <'Sources/lmkfile'`; then echo shar: \"'Sources/lmkfile'\" unpacked with wrong size! fi # end of 'Sources/lmkfile' fi if test -f 'Sources/mymem.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/mymem.c'\" else echo shar: Extracting \"'Sources/mymem.c'\" $1250 characters$ sed "s/^X//" >'Sources/mymem.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include <exec/types.h> X#include <exec/lists.h> X#include <exec/nodes.h> X#include <exec/memory.h> X#include <proto/exec.h> X Xstruct MyMem { X struct MinNode mm_Node; X ULONG mm_Size; X}; X Xstruct MinList Mem[2]; XUWORD CurrentMem; X Xvoid InitMemory(void) X{ X NewList((struct List *)&Mem[0]); X NewList((struct List *)&Mem[1]); X CurrentMem = 0; X} X Xchar *MyAlloc(ULONG size) X{ X register struct MyMem *theMemory; X register ULONG newsize; X X newsize = size + sizeof(struct MyMem); X X if (!(theMemory = (struct MyMem *)AllocMem(newsize, MEMF_PUBLIC|MEMF_CLEAR))) X return NULL; X X AddTail((struct List *)&Mem[CurrentMem], (struct Node *)&theMemory->mm_Node); X theMemory->mm_Size = newsize; X X return (char *)theMemory + sizeof(struct MyMem); X} X Xvoid MyFree(char *MemPtr) X{ X register struct MyMem *theMemory; X X theMemory = (struct MyMem *)(MemPtr - sizeof(struct MyMem)); X X Remove((struct Node *)&theMemory->mm_Node); X FreeMem((char *)theMemory, theMemory->mm_Size); X} X Xvoid FreeAll(UWORD memlist) X{ X register struct MyMem *theMemory; X X while (theMemory = (struct MyMem *)RemTail((struct List *)&Mem[memlist])) X FreeMem((char *)theMemory, theMemory->mm_Size); X} END_OF_FILE if test 1250 -ne `wc -c <'Sources/mymem.c'`; then echo shar: \"'Sources/mymem.c'\" unpacked with wrong size! fi # end of 'Sources/mymem.c' fi if test -f 'Sources/myprintf.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/myprintf.c'\" else echo shar: Extracting \"'Sources/myprintf.c'\" $712 characters$ sed "s/^X//" >'Sources/myprintf.c' <<'END_OF_FILE' X#include <proto/dos.h> X#include <stdarg.h> X Xvoid RawDoFmt(char *, APTR, void(*)(), APTR); X#pragma syscall RawDoFmt 20a ba9804 X Xvoid __stdargs MyPrintf(char *fmt, ...) X{ X va_list args; X X va_start(args, fmt); X VPrintf((UBYTE *)fmt, (LONG *)args); X Flush(Output()); X va_end(args); X} X Xstatic void __regargs MySPrintfSupp(char); X Xvoid __stdargs MySPrintf(char *buf, char *fmt, ...) X{ X va_list args; X X va_start(args, fmt); X RawDoFmt(fmt, (APTR)args, MySPrintfSupp, (APTR)buf) X va_end(args); X} X Xextern long __builtin_getreg(int); Xextern void __builtin_putreg(int, char *); X Xstatic void __regargs MySPrintfSupp(char Char) X{ X char *ptr; X X ptr = (char *)__builtin_getreg(11); X *ptr++ = Char; X __builtin_putreg(11, ptr); X} END_OF_FILE if test 712 -ne `wc -c <'Sources/myprintf.c'`; then echo shar: \"'Sources/myprintf.c'\" unpacked with wrong size! fi # end of 'Sources/myprintf.c' fi if test -f 'Sources/rgbdiff.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/rgbdiff.c'\" else echo shar: Extracting \"'Sources/rgbdiff.c'\" $876 characters$ sed "s/^X//" >'Sources/rgbdiff.c' <<'END_OF_FILE' X/* Note: this colour comparison routine was snitched from HamSharp. X X This has the side effect of allowing one to compare colour errors gotten X with GIFMachine to those gotten with (S)HamSharp. X*/ X X#include "GIFMachine.h" X Xstatic UBYTE Diff[16][16]; Xstatic UBYTE Intensity[16][16][16]; X Xextern struct Library *MathIeeeDoubBasBase; X Xvoid InitDiff(void) X{ X register int i; X register int j; X register int r; X register int g; X register int b; X X for (i = 0; i < 16; i++) X for (j = 0; j < 16; j++) X Diff[i][j] = (i - j) * (i - j); X X for (r = 0; r < 16; r++) X for (g = 0; g < 16; g++) X for (b = 0; b < 16; b++) X Intensity[r][g][b] = (int)(.299 * r + .587 * g + .114 * b); X} X XULONG RGBdiff(UBYTE r1, UBYTE g1, UBYTE b1, UBYTE r2, UBYTE g2, UBYTE b2) X{ X return (ULONG)(Diff[Intensity[r1][g1][b1]][Intensity[r2][g2][b2]] + X Diff[r1][r2] + Diff[g1][g2] + Diff[b1][b2]); X} END_OF_FILE if test 876 -ne `wc -c <'Sources/rgbdiff.c'`; then echo shar: \"'Sources/rgbdiff.c'\" unpacked with wrong size! fi # end of 'Sources/rgbdiff.c' fi if test -f 'Sources/startup.a' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/startup.a'\" else echo shar: Extracting \"'Sources/startup.a'\" $4359 characters$ sed "s/^X//" >'Sources/startup.a' <<'END_OF_FILE' X INCLUDE "exec/types.i" X INCLUDE "exec/execbase.i" X INCLUDE "exec/memory.i" X INCLUDE "libraries/dosextens.i" X X XREF @main X X XREF _LVOOpenLibrary X XREF _LVOOldOpenLibrary X XREF _LVOCloseLibrary X XREF _LVOSetSignal X XREF _LVOForbid X XREF _LVOWaitPort X XREF _LVOGetMsg X XREF _LVOReplyMsg X XREF _LVOSetIoErr X XREF _LVOAllocVec X XREF _LVOFreeVec X XREF _LVOOutput X XREF _LVOWrite X X XREF _LinkerDB X XREF __BSSBAS X XREF __BSSLEN X XREF _RESLEN X XREF _RESBASE X XREF _NEWDATAL X X XREF _AbsExecBase X XLIBCALL MACRO X jsr _LVO\1(a6) X ENDM X X SECTION StartCode,CODE X Xinit: X movem.l d0/a0,-(sp) X X; first off we will check for our workbench message, if any. we will store X; the pointer to it in d7 temporarily until we actually copy the data X; segment over. otherwise we wouldn't be residentiable. X X moveq #0,d7 ; clear out longword X X; get address of our task X move.l _AbsExecBase.W,a6 X move.l ThisTask(a6),a3 X X; clear any pending signals X moveq #0,d0 X move.l #$00003000,d1 X LIBCALL SetSignal X X; check for workbench message X tst.l pr_CLI(a3) X bne.s FromCLI X X lea pr_MsgPort(a3),a0 X LIBCALL WaitPort X lea pr_MsgPort(a3),a0 X LIBCALL GetMsg X move.l d0,d7 X XFromCLI: X lea DOSlib(pc),a1 X moveq #36,d0 X LIBCALL OpenLibrary X tst.l d0 X bne.s DoMain X X lea DOSlib(pc),a1 X LIBCALL OldOpenLibrary X tst.l d0 X beq.s bomb X X move.l d0,a6 X LIBCALL Output X move.l d0,d1 X beq.s bomb X X lea Msg1(pc),a0 X move.l a0,d2 X moveq #Msg1Len,d3 X LIBCALL Write X X move.l a6,a1 X move.l _AbsExecBase.W,a6 X LIBCALL CloseLibrary X Xbomb: addq.l #8,sp ; pop d0/a0 off stack X X move.l d7,d0 ; check if we have a workbench startup X bsr ReplyWB ; message and reply it if so X X moveq #0,d0 X rts X XDoMain: X move.l d0,-(sp) X X lea _LinkerDB,a4 X sub.l #_RESBASE,a4 X X; get mem to hold data and bss stuff X move.l #_RESLEN,d0 X move.l #MEMF_PUBLIC+MEMF_CLEAR,d1 X LIBCALL AllocVec X tst.l d0 X bne.s gotmem X X; no mem available so bomb out X move.l d7,d0 ; check for wb startup message and reply X bsr ReplyWB ; it if present X X move.l (sp)+,a6 ; get dos base X addq.l #8,sp ; pop d0/a0 off of stack X X moveq #ERROR_NO_FREE_STORE,d1 X LIBCALL SetIoErr X X move.l a6,a1 X move.l _AbsExecBase.W,a6 X LIBCALL CloseLibrary X X moveq #20,d0 X rts X X; get ready to copy data over into freshly alloced data area Xgotmem: move.l d0,a0 X move.l d0,a2 X X move.l d0,a1 X move.l #_NEWDATAL,d0 Xcpy: move.l (a4)+,(a0)+ X subq.l #1,d0 X bne.s cpy X X; now do the relocs for resident data X move.l (a4)+,d0 Xreloc: beq.s nreloc X move.l a1,a0 X add.l (a4)+,a0 X add.l (a0),a2 X move.l a2,(a0) X move.l a1,a2 X subq.l #1,d0 X bra.s reloc X Xnreloc: move.l a1,a4 X add.l #_RESBASE,a4 X X; stash some important junk away X move.l (sp)+,_DOSBase(a4) X move.l d7,_WBenchMsg(a4) X X move.l _AbsExecBase.W,a6 X move.l a6,_SysBase(a4) X X; call our main program. we call the main routine with the following X; arguments: X; X; d0 = length of command line X; a0 = pointer to command line X; a1 = pointer to workbench startup message (or NULL) X X movem.l (sp)+,d0/a0 X movem.l sp,__StackPtr(a4) X X movea.l d7,a1 X jsr @main X moveq #0,d0 X bra.s Exit X X XDEF _XCEXIT X_XCEXIT: X move.l 4(sp),d0 X XDEF @XCEXIT X@XCEXIT: X XExit: move.l d0,d3 ; save return code in safe place X X move.l _WBenchMsg(a4),d0 ; check if we need to reply the X bsr ReplyWB ; workbench startup message X X move.l _DOSBase(a4),a6 X moveq #0,d1 X LIBCALL SetIoErr X X move.l a6,a1 X move.l _AbsExecBase.W,a6 X LIBCALL CloseLibrary X X movea.l __StackPtr(a4),sp X X move.l a4,a1 X sub.l #_RESBASE,a1 X LIBCALL FreeVec X X move.l d3,d0 ; restore return code X rts X X; this subroutine is called when we try to check if we need to reply X; the workbench message. This is done because we do this in more than X; one place. X XReplyWB: X move.l d0,d2 X beq.s 1$ X X move.l _AbsExecBase.W,a6 X LIBCALL Forbid X movea.l d2,a1 X LIBCALL ReplyMsg X X1$ rts X X; ---- This is the data we need for the startup module. we don't put it in X; a data segment, though, or it would end up being copied over when we X; clone the data hunk and this stuff isn't needed anywhere else... X XDOSlib dc.b "dos.library",0 X XMsg1 dc.b "You need KickStart 2.0 or greater.",13 XMsg1Len EQU *-Msg1 X ds.w 0 X X; ---- This is the BBS segment that holds various startup junk for us. X X SECTION __MERGED,BSS X X XDEF _DOSBase X XDEF _SysBase X XDEF _IntuitionBase X XDEF _WBenchMsg X XDEF __StackPtr X X_DOSBase ds.b 4 X_SysBase ds.b 4 X_IntuitionBase ds.b 4 X_WBenchMsg ds.b 4 X__StackPtr ds.b 4 X X END END_OF_FILE if test 4359 -ne `wc -c <'Sources/startup.a'`; then echo shar: \"'Sources/startup.a'\" unpacked with wrong size! fi # end of 'Sources/startup.a' fi if test -f 'Sources/stripborder.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/stripborder.c'\" else echo shar: Extracting \"'Sources/stripborder.c'\" $3390 characters$ sed "s/^X//" >'Sources/stripborder.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X Xextern char *AbortMsg; X Xextern int NoBorderLineThresh; X X#define BorderCheck(a, b) ((BitPlane[b][a].rgb_Red != BorderCol.rgb_Red) || \ X (BitPlane[b][a].rgb_Green != BorderCol.rgb_Green) || \ X (BitPlane[b][a].rgb_Blue != BorderCol.rgb_Blue)) X Xvoid StripBorder(void) X{ X register UWORD x; X register UWORD y; X register int thresh; X register BOOL breakout; X LONG LeftEdge, TopEdge; X LONG Width, Height; X UWORD OrigWidth, OrigHeight; X int WidthThresh, HeightThresh; X int Corner; X X struct RGB BorderCol; X X PutStr("...Removing border.\n"); X X OrigWidth = gdesc.gd_Width; X OrigHeight = gdesc.gd_Height; X X for (Corner = 0; Corner < 4; Corner++) { X x = (Corner & 1) ? (gdesc.gd_Width - 1) : 0; X y = (Corner & 2) ? (gdesc.gd_Height - 1) : 0; X X BorderCol = BitPlane[y][x]; X X WidthThresh = NoBorderLineThresh * gdesc.gd_Width / 100; X HeightThresh = NoBorderLineThresh * gdesc.gd_Height / 100; X X for (breakout = y = 0; (y < gdesc.gd_Height) && !breakout; y++) { X for (thresh = x = 0; x < gdesc.gd_Width; x++) X if (BorderCheck(x, y)) X if (++thresh > WidthThresh) { X breakout = TRUE; X break; X } X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X PutStr(AbortMsg); X MyExit(ABORTEXITVAL); X } X } X X TopEdge = y - 1; X X for (breakout = 0, y = gdesc.gd_Height - 1; (y > 0) && !breakout; y--) { X for (thresh = x = 0; x < gdesc.gd_Width; x++) X if (BorderCheck(x, y)) X if (++thresh > WidthThresh) { X breakout = TRUE; X break; X } X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X PutStr(AbortMsg); X MyExit(ABORTEXITVAL); X } X } X X Height = y - TopEdge + 2; X X for (breakout = x = 0; (x < gdesc.gd_Width) && !breakout; x++) { X for (thresh = y = 0; y < gdesc.gd_Height; y++) X if (BorderCheck(x, y)) X if (++thresh > HeightThresh) { X breakout = TRUE; X break; X } X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X PutStr(AbortMsg); X MyExit(ABORTEXITVAL); X } X } X X LeftEdge = x - 1; X X for (breakout = 0, x = gdesc.gd_Width - 1; (x > 0) && !breakout; x--) { X for (thresh = y = 0; y < gdesc.gd_Height; y++) X if (BorderCheck(x, y)) X if (++thresh > HeightThresh) { X breakout = TRUE; X break; X } X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X PutStr(AbortMsg); X MyExit(ABORTEXITVAL); X } X } X X Width = x - LeftEdge + 2; X X if ((Width != gdesc.gd_Width) || (Height != gdesc.gd_Height)) { X if (Width < 5 || Height < 5) { X PutStr("......Too much of picture would be removed. Not modified.\n"); X return; X } X X for (y = 0; y < Height; y++) { X for (x = 0; x < Width; x++) X BitPlane[y][x] = BitPlane[TopEdge + y][LeftEdge + x]; X X BitPlane[y][x].rgb_Red = X BitPlane[y][x].rgb_Green = X BitPlane[y][x].rgb_Blue = 0; X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X PutStr(AbortMsg); X MyExit(ABORTEXITVAL); X } X } X X gdesc.gd_Width = Width; X gdesc.gd_Height = Height; X } X } X X if ((gdesc.gd_Width != OrigWidth) || (gdesc.gd_Height != OrigHeight)) { X if (gdesc.gd_Width & 1) X gdesc.gd_Width++; X X MyPrintf("......New width = %ld, New height = %ld\n", X gdesc.gd_Width, gdesc.gd_Height); X } X} END_OF_FILE if test 3390 -ne `wc -c <'Sources/stripborder.c'`; then echo shar: \"'Sources/stripborder.c'\" unpacked with wrong size! fi # end of 'Sources/stripborder.c' fi if test -f 'Sources/version.o.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/version.o.uu'\" else echo shar: Extracting \"'Sources/version.o.uu'\" $197 characters$ sed "s/^X//" >'Sources/version.o.uu' <<'END_OF_FILE' Xbegin 666 version.o XM```#YP````````/I````!P````(```!T,BXQ,38@*#$U($9E8B`Y,2D`````9 XM``/O`0```E]697)S:6]N``````$```-?5F5R<VEO;DE$```````(`0```U]2- X6979I<VEO;@````````0````````#\@-?8 X`` Xend Xsize 112 END_OF_FILE if test 197 -ne `wc -c <'Sources/version.o.uu'`; then echo shar: \"'Sources/version.o.uu'\" unpacked with wrong size! fi # end of 'Sources/version.o.uu' fi if test -f 'Sources/warncli.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/warncli.c'\" else echo shar: Extracting \"'Sources/warncli.c'\" $1701 characters$ sed "s/^X//" >'Sources/warncli.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include <exec/types.h> X#include <intuition/intuition.h> X#include <graphics/text.h> X#include <proto/exec.h> X#include <proto/intuition.h> X Xstatic struct TextAttr TOPAZ60 = {"topaz.font", TOPAZ_SIXTY, X FS_NORMAL, FPF_ROMFONT}; X Xstatic struct IntuiText BodyText2 = {-1, -1, /* pen numbers */ X 0, /* draw mode */ X 9,14, /* starting offsets */ X &TOPAZ60, /* text attribute pointer */ X "for CLI use only!", X NULL }; X Xstatic struct IntuiText BodyText1 = {-1,-1, /* pen numbers */ X 0, /* draw mode */ X 29,4, /* starting offsets */ X &TOPAZ60, /* text attribute pointer */ X "GIFMachine is", X &BodyText2 }; X Xstatic struct IntuiText ContinueText = {-1,-1, /* pen numbers */ X 0, /* draw mode */ X 4,4, /* starting offsets */ X &TOPAZ60, /* text attribute pointer */ X "CONTINUE", X NULL }; X Xvoid WarnMustUseCLI(void) X{ X BOOL OpenedIntui; X X if (IntuitionBase) X OpenedIntui = FALSE; X else { X if (!(IntuitionBase = OpenLibrary("intuition.library", 0))) X return; X OpenedIntui = TRUE; X } X X AutoRequest(NULL,&BodyText1,NULL,&ContinueText,0,0,220,64); X X if (OpenedIntui) X CloseLibrary(IntuitionBase); X} END_OF_FILE if test 1701 -ne `wc -c <'Sources/warncli.c'`; then echo shar: \"'Sources/warncli.c'\" unpacked with wrong size! fi # end of 'Sources/warncli.c' fi if test -f 'Sources/writeiff.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/writeiff.c'\" else echo shar: Extracting \"'Sources/writeiff.c'\" $9577 characters$ sed "s/^X//" >'Sources/writeiff.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X#include "GIFMachine.h" X#include <iff/ILBM.h> X#include <libraries/iffparse.h> X#include <graphics/view.h> X#include <proto/iffparse.h> X#include <dos/datetime.h> X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X Xextern struct MinList CommentList; X Xextern char *AbortMsg; X Xextern UWORD *SHAMmem; XBYTE *PlaneBuf; X XBOOL Laced; X XUBYTE *Planes[24]; X Xstatic UBYTE CompBuf[256]; Xstatic ULONG PlanePos; X X/* our version number stuff */ Xextern ULONG __far Version; Xextern ULONG __far Revision; X XBOOL WriteIFF(char *tofile, BOOL DeepFlag) X{ X register struct IFFHandle *iff; X register int index; X register ULONG ChunkSize; X register UWORD current; X char WrittenBy[40]; X X ColorRegister ColourBuf; X BitMapHeader bmh; X X PutStr("...Writing IFF file."); X X if (!(iff = AllocIFF())) { X PutStr("\n......Error allocating IFF handle.\n"); X return TRUE; X } X X if (!(iff->iff_Stream = Open(tofile, MODE_NEWFILE))) { X MyPrintf("\n......Error %ld trying to create %s.", IoErr(), tofile); X goto EndWriteIFF; X } X X InitIFFasDOS(iff); X X if (OpenIFF(iff, IFFF_WRITE)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (PushChunk(iff, ID_ILBM, FORM, IFFSIZE_UNKNOWN)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (PushChunk(iff, 0L, MakeID('A','N','N','O'), IFFSIZE_UNKNOWN)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X MySPrintf(WrittenBy, "Written by GIFMachine v%ld.%ld on ", Version, Revision); X X if (WriteChunkBytes(iff, (APTR)&WrittenBy, strlen(WrittenBy)) != strlen(WrittenBy)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X { X struct DateTime dat; X char Date[LEN_DATSTRING + 1]; X int DateLength; X X DateStamp(&dat.dat_Stamp); X dat.dat_Format = FORMAT_DOS; X dat.dat_Flags = 0; X dat.dat_StrDay = NULL; X dat.dat_StrDate = Date; X dat.dat_StrTime = NULL; X X memset(Date, 0, LEN_DATSTRING + 1); X DateToStr(&dat); X X DateLength = strlen(Date) + 1; X if (WriteChunkBytes(iff, (APTR)&Date, DateLength) != DateLength) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X { X struct CommentNode *cn; X char ANNObuf[1]; X X#define C_BLOCK_ID "GIF Comment Block: " X X ANNObuf[0] = 0; X X while (cn = (struct CommentNode *)RemHead((struct List *)&CommentList)) { X if (PushChunk(iff, 0L, MakeID('A','N','N','O'), IFFSIZE_UNKNOWN)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (WriteChunkBytes(iff, (APTR)C_BLOCK_ID, strlen(C_BLOCK_ID)) != strlen(C_BLOCK_ID)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (WriteChunkBytes(iff, (APTR)cn->cn_Comment, cn->cn_CommentLength) != cn->cn_CommentLength) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (WriteChunkBytes(iff, (APTR)ANNObuf, 1) != 1) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } X } X X if (PushChunk(iff, 0L, ID_BMHD, sizeof(BitMapHeader))) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X bmh.w = (gdesc.gd_Width & 1) ? gdesc.gd_Width + 1 : gdesc.gd_Width; X bmh.h = (gdesc.gd_Height & 1) ? gdesc.gd_Height + 1 : gdesc.gd_Height; X bmh.x = bmh.y = 0; X bmh.nPlanes = (DeepFlag ? 24 : 6); X bmh.masking = mskNone; X bmh.compression = cmpByteRun1; X bmh.pad1 = 0; X bmh.transparentColor = 0; X bmh.xAspect = (Laced ? x320x400Aspect : x320x200Aspect); X bmh.yAspect = (Laced ? y320x400Aspect : y320x200Aspect); X bmh.pageWidth = 320; X bmh.pageHeight = (Laced ? 400 : 200); X X if (WriteChunkBytes(iff, (APTR)&bmh, sizeof(BitMapHeader)) != sizeof(BitMapHeader)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (PushChunk(iff, 0L, ID_CAMG, 4)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X { X LONG CAMGbuf[1]; X X CAMGbuf[0] = (DeepFlag ? 0 : HAM) | (Laced ? LACE : 0); X X if (WriteChunkBytes(iff, (APTR)&CAMGbuf, 4) != 4) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (!DeepFlag) { X if (PushChunk(iff, 0L, ID_CMAP, 16 * 3)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X for (index = 0; index < 16; index++) { X current = SHAMmem[index]; X X ColourBuf.red = (current >> 4) & 0xF0; X ColourBuf.green = current & 0xF0; X ColourBuf.blue = (current & 15) << 4; X X if (WriteChunkBytes(iff, (APTR)&ColourBuf, sizeofColorRegister) != sizeofColorRegister) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X ChunkSize = (Laced ? gdesc.gd_Height / 2 : gdesc.gd_Height) * 16 * sizeof(UWORD); X X if (PushChunk(iff, 0L, MakeID('S','H','A','M'), IFFSIZE_UNKNOWN)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X { X UWORD SHAMversion[1]; X X SHAMversion[0] = 0; X X if (WriteChunkBytes(iff, (APTR)&SHAMversion, sizeof(UWORD)) != sizeof(UWORD)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } X X if (WriteChunkBytes(iff, (APTR)SHAMmem, ChunkSize) != ChunkSize) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (gdesc.gd_Height & 1) { X UWORD BlankSHAM[16]; X X memset((char *)BlankSHAM, 0, sizeof(BlankSHAM)); X X if (WriteChunkBytes(iff, (APTR)BlankSHAM, sizeof(BlankSHAM)) != sizeof(BlankSHAM)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X } /* end if (!DeepFlag) */ X X if (PushChunk(iff, 0L, ID_BODY, IFFSIZE_UNKNOWN)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X /* now we actually write the body chunk out */ X { X register int plane; X register int col; X register UWORD x; X register UWORD y; X register int index; X UBYTE PlaneMask, ColMask; X UWORD Cols; X X PutStr("\n......Line "); X X Cols = (bmh.w + 7) / 8; X if (IS_ODD(Cols)) X Cols++; X X for (y = 0; y < ((gdesc.gd_Height & 1) ? gdesc.gd_Height + 1 : gdesc.gd_Height) ; y++) { X MyPrintf("%5ld", y); X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X CloseIFF(iff); X Close(iff->iff_Stream); X FreeIFF(iff); X MyExit(ABORTEXITVAL); X } X X if (y != gdesc.gd_Height) X for (index = 0; index < (DeepFlag ? 3 : 1); index++) { X col = 0; X ColMask = 1L << 7; X X for (x = 0; x < gdesc.gd_Width; x++) { X if (DeepFlag) X current = *((UBYTE *)&BitPlane[y][x]+index); X else X current = GetValue(x, y); X X PlaneMask = 1; X for (plane = 0; plane < (DeepFlag ? 8 : 6); plane++) { X if (current & PlaneMask) X Planes[plane + index * 8][col] |= ColMask; X X PlaneMask <<= 1; X } X X if (ColMask == 1) { X ColMask = 1L << 7; X col++; X } else X ColMask >>= 1; X } X } X X /* now we need to compress the scan line */ X X { X register BOOL state; X register char c; X register char lastc; X register UWORD nbuf; X register UWORD rstart; X X for (plane = 0; plane < (DeepFlag ? 24 : 6); plane++) { X X CompBuf[0] = lastc = c = Planes[plane][0]; X X state = FALSE; X PlanePos = rstart = 0; X nbuf = col = 1; X X while (col < Cols) { X CompBuf[nbuf++] = c = Planes[plane][col++]; X X switch (state) { X case FALSE: X if (nbuf > 128) { X OutDump(nbuf - 1); X CompBuf[0] = c; X nbuf = 1; X rstart = 0; X break; X } X X if (c == lastc) { X if (nbuf - rstart >= 3) { X if (rstart > 0) X OutDump(rstart); X state = TRUE; X } else if (rstart == 0) X state = TRUE; X } else X rstart = nbuf - 1; X X break; X X case TRUE: X if ((c != lastc) || (nbuf - rstart > 128)) { X OutRun(nbuf - 1 - rstart, lastc); X CompBuf[0] = c; X nbuf = 1; X rstart = 0; X state = FALSE; X } X X break; X } X X lastc = c; X } X X switch (state) { X case FALSE: X OutDump(nbuf); X break; X X case TRUE: X OutRun(nbuf - rstart, lastc); X break; X } X X /* now write the compressed plane out */ X if (WriteChunkBytes(iff, (APTR)PlaneBuf, PlanePos) != PlanePos) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X memset((char *)Planes[plane], 0, Cols); X } X } X X MyPrintf("\x9B" "5D"); X } X X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X if (PopChunk(iff)) { X PutStr("\n......Error writing to IFF.\n"); X goto EndWriteIFF; X } X X PutStr("\x9B" "5D\x9BKWritten.\n"); X XEndWriteIFF: X CloseIFF(iff); X if (iff->iff_Stream) X Close(iff->iff_Stream); X FreeIFF(iff); X X return TRUE; X} X Xvoid OutDump(int nn) X{ X register int index; X X PlaneBuf[PlanePos++] = nn - 1; X X for (index = 0; index < nn; index++) X PlaneBuf[PlanePos++] = CompBuf[index]; X} X Xvoid OutRun(int nn, int cc) X{ X PlaneBuf[PlanePos++] = -(nn - 1); X PlaneBuf[PlanePos++] = cc; X} END_OF_FILE if test 9577 -ne `wc -c <'Sources/writeiff.c'`; then echo shar: \"'Sources/writeiff.c'\" unpacked with wrong size! fi # end of 'Sources/writeiff.c' fi if test -f 'Sources/xcomp.c' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'Sources/xcomp.c'\" else echo shar: Extracting \"'Sources/xcomp.c'\" $2146 characters$ sed "s/^X//" >'Sources/xcomp.c' <<'END_OF_FILE' X/* Copyright 1990 by Christopher A. Wichura. X See file GIFMachine.doc for full description of rights. X*/ X X/* This function will take the gif screen we have read in and scale it to X one half of its previous X size. X X What we do here is just a step above skipping every other pixel (like X most routines I have seen do). While we still put emphasis on the X even pixels, we at least take account of the odds next to them by X using a weighted average. X X This method is by no means the best way to do this. If anyone wants X to build a smarter one I would be very interested in seeing it. X*/ X X#include "GIFMachine.h" X Xextern struct GIFdescriptor gdesc; XEXTERNBITPLANE; X Xextern char *AbortMsg; X Xvoid DoXComp(void) X{ X register UWORD x1; X register UWORD x2; X register UWORD y; X register UWORD num; X UWORD ColBuf[3]; X UWORD NewWidth; X X NewWidth = gdesc.gd_Width >> 1; X if (NewWidth & 1) X NewWidth++; X X MyPrintf("...Compressing width to %ld.\n......Line ", NewWidth); X X for (y = 0; y < gdesc.gd_Height; y++) { X MyPrintf("%5ld", y); X X for (x1 = x2 = 0; x2 < gdesc.gd_Width; x1++, x2 += 2) { X num = 4; X X ColBuf[0] = BitPlane[y][x2].rgb_Red * 4; X ColBuf[1] = BitPlane[y][x2].rgb_Green * 4; X ColBuf[2] = BitPlane[y][x2].rgb_Blue * 4; X X if (x2 > 1) { X num += 2; X X ColBuf[0] += BitPlane[y][x2 - 1].rgb_Red * 2; X ColBuf[1] += BitPlane[y][x2 - 1].rgb_Green * 2; X ColBuf[2] += BitPlane[y][x2 - 1].rgb_Blue * 2; X } X X if (x2 + 1 < gdesc.gd_Width) { X num += 2; X X ColBuf[0] += BitPlane[y][x2 + 1].rgb_Red * 2; X ColBuf[1] += BitPlane[y][x2 + 1].rgb_Green * 2; X ColBuf[2] += BitPlane[y][x2 + 1].rgb_Blue * 2; X } X X BitPlane[y][x1].rgb_Red = ((ColBuf[0] + num / 2) / num); X BitPlane[y][x1].rgb_Green = ((ColBuf[1] + num / 2) / num); X BitPlane[y][x1].rgb_Blue = ((ColBuf[2] + num / 2) / num); X } X X BitPlane[y][x1].rgb_Red = BitPlane[y][x1].rgb_Green = BitPlane[y][x1].rgb_Blue = 0; X X if (SetSignal(0L, SIGBREAKF_CTRL_C) & SIGBREAKF_CTRL_C) { X MyPrintf("\n%s", AbortMsg); X MyExit(ABORTEXITVAL); X } X X PutStr("\x9B" "5D"); X } X X PutStr("\x9B" "5DCompressed.\n"); X X gdesc.gd_Width = NewWidth; X} END_OF_FILE if test 2146 -ne `wc -c <'Sources/xcomp.c'`; then echo shar: \"'Sources/xcomp.c'\" unpacked with wrong size! fi # end of 'Sources/xcomp.c' fi echo shar: End of archive 1 $of 2$. cp /dev/null ark1isdone MISSING="" for I in 1 2 ; do if test ! -f ark${I}isdone ; then MISSING="${MISSING} ${I}" fi done if test "${MISSING}" = "" ; then echo You have unpacked both archives. rm -f ark[1-9]isdone else echo You still need to unpack the following archives: echo " " ${MISSING} fi ## End of shell archive. exit 0 -- Mail submissions (sources or binaries) to <amiga@uunet.uu.net>. Mail comments to the moderator at <amiga-request@uunet.uu.net>. Post requests for sources, and general discussion to comp.sys.amiga.misc.